10 REM ***** BLTUC - TESTPROGRAMM *****
20 PRINTCHR$(147)
30 POKE53280,0:POKE53281,5:POKE646,1
35 REM +++ FARBRAM U. SCHIRM BELEGEN +++
40 FOR I = 0 TO 79:POKE55296+I,1:NEXTI
50 FOR I = 1 TO 39:POKE1024+I,I:NEXTI
52 REM +++ ML-PRG.PARAMETERUEBERGABE +++
54 FOR I=49152TO49158:READA:POKEI,A:NEXTI
56 DATA133,95,134,96,76,191,163
60 REM +++ AUFWAERTS VERSCHIEBEN +++
62 FORI=0TO300:NEXTI
64 PRINTCHR$(17)CHR$(17)"WIR VERSCHIEBEN JETZT!"
66 FORI=0TO300:NEXTI
70 QS=1025:QE=1064:REM QUELLE START UND QUELLE ENDE+1
80 ZE=1065:REM ZIEL ENDE+1
90 A=INT(QS/256):POKE781,A:POKE780,QS-256*A
100 A=INT(QE/256):POKE91,A:POKE90,QE-256*A
110 A=INT(ZE/256):POKE89,A:POKE88,ZE-256*A
120 SYS49152
130 PRINTCHR$(17)CHR$(17)"DAS WAR UM 1 AUFWAERTS":PRINT"BITTE TASTE DRUECKEN"
140 GETA$:IFA$=""THEN140
150 REM +++ ABWAERTS VERSCHIEBEN +++
152 FORI=0TO300:NEXTI
154 PRINTCHR$(17)CHR$(17)"JETZT VERSCHIEBEN WIR ABWAERTS!"
156 FORI=0TO300:NEXTI
160 QS=1025:QE=1064:REM QUELLE START UND QUELLE ENDE+1
170 ZE=1063:REM ZIEL ENDE+1
180 A=INT(QS/256):POKE781,A:POKE780,QS-256*A
190 A=INT(QE/256):POKE91,A:POKE90,QE-256*A
200 A=INT(ZE/256):POKE89,A:POKE88,ZE-256*A
210 SYS49152
220 PRINTCHR$(17)CHR$(17)"DA SEHEN SIE DAS PROBLEM":PRINT"DER BLTUC-ROUTINE"